home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Now 7 / CD-ROM Now 7.iso / dosprogs / roomer3 / r3demo.shr / DEFUR2.MAC < prev    next >
Encoding:
Text File  |  1993-02-17  |  3.9 KB  |  236 lines
  1.  0
  2. l~
  3. ~CO Going to PROGL
  4. ~
  5. new
  6.  
  7. dto
  8.  
  9. p
  10. 4
  11. ~
  12. ~TE
  13.  25  26  14  4  7  0
  14. You can draw nearly any shape, extrude
  15.   it and save this as a new piece of
  16.  furniture.  Here I draw a lamp base.
  17. ~~
  18. ~PA0,.1
  19. ~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~CLd~CU~CU~
  20. ~CU~CU~CUd~HM~HMd~PU~PUd~CU~CU~CU~CU~CUdm~
  21. ~CR~CR~CR~CR~CR~CR~CR~CR~CR~CR~CRd~CD~CD~CD~
  22. ~CD~CDd~PD~PDd~EN~ENd~CD~CD~CD~CD~CDdca
  23. ~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL
  24. ~CD~CD~CD~CD~CD~CD~CU~CU
  25. ca~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~
  26. ~CU~CU~CU~CU~CU~CL~CL~CL~CL~CLs
  27. ~CR~CR~CR~CR~CR~CR~CR~CR~CR~CR~CRs
  28. ~CU~CU~CU~CU~CU
  29. ~
  30. ~TE
  31.  21  16  14  4  10  0
  32.  That's pretty ugly but it will serve
  33.  our purpose.  Now we will create the
  34.    new extruded piece based on this
  35. drawing, and then twirl it to see what
  36.             it looks like.
  37. ~~
  38. xsdebase
  39. pcdebase
  40. ~CO Going to PROGX
  41. ~
  42.  
  43.  
  44. t~
  45. ~CO Going to PROGX
  46.  
  47. +~CD~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~
  48. ~CU~CU~CU~CU~CU++~CU~CU~CU~CU~CU~CU~CU~
  49. ~PA0,5
  50. ~
  51. ~PA0,.1
  52. ~
  53. ~TE
  54.  1  1  14  4  6  0
  55. That's a strange looking thing.  We
  56. will use it later as the base of a
  57. floor lamp.  First though, lets make
  58. a lamp shade.
  59. ~~
  60. ql~
  61. ~CO Going to PROGL
  62. ~
  63. ~CL~
  64.  
  65.  
  66. dto24
  67. fr8
  68. ~
  69. ~TE
  70.  22  25  14  4  7  0
  71. We can draw a single line and rotate
  72. it in space to create objects like
  73. lamp shades and globes.
  74. ~~
  75. ~CU~CU~CU~CU~CU~CU~CUd~CL~EN~ENd~EN~EN~CD~
  76. d~CL~CL~CD~CLd~EN~EN~CD~CR~CR~CL+~CR~CR~CR~
  77. ~CR~CRd~
  78. ~PA2
  79. xsdetop
  80. pc~
  81. ~CO Going to PROGX
  82. ~
  83.  
  84.  
  85. t~
  86. ~CO Going to PROGX
  87.  
  88. +~CD~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~
  89. ~CU~CU~CU~
  90. ~PA0,5
  91. ~
  92. ~PA0,.2
  93. ~
  94. ~TE
  95.  4  21  14  4  5  0
  96. This is our lamp shade.  It's ugly too!
  97. Now lets assemble the finished lamp.
  98. ~~
  99. qf~
  100. ~CO Going to PROGF
  101. ~
  102. hanks
  103.  
  104. debase
  105. ~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~CU~CU~CU~
  106. ~CU~CU~CU~CU~CUlbox
  107. ~CR~CR~CR~CR~CR~CR~CR~CR~CRldetop
  108. ~CR~CR~CR~CR~CR~CR~CR~CR~CR~CR~
  109. ~RE
  110. ~TE
  111.  18  24  14  4  10  3
  112.  282  269  240  215
  113.  330  267  333  219
  114.  382  269  415  221
  115. Here are the component pieces of our
  116. lamp.  A base, a box which we will
  117. resize to be the stem of the lamp, and
  118. the shade.  Now lets stick the pieces
  119. together.
  120. ~~
  121. cnxrp~CU~CU~
  122. ~CU~CU~CU~CU~CUx-~CL~CLcnxr2
  123. 2
  124. 60
  125.  
  126. ~CL~CL~CL~CL~CL~CL~CL~CL~CLi~CLjjvfcbxrh~
  127. ~CD~CD~CDxcnjxj~
  128. cnx~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~CU~
  129. ~CU~CU~CU~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~
  130. ~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL~CL+~CR~CR~CR~
  131. z
  132. +~CU~CU~CU+
  133. ~CDvtz
  134. ~CU+~CU~CU~CU
  135. ~
  136. ~RE
  137. ~TE
  138.  1  1  14  4  8  1
  139.  120  110  202  158
  140. Our lamp is now ready for saving as a
  141. new piece of furniture.  This time I
  142. will simplify the 2D icon of the piece
  143. as I save it.  See how cluttered the
  144. icon now looks?
  145. ~~
  146. canananxdeugly
  147. nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn~
  148. nnnnnnnnnnnnnnnnnnnnnynnnnnnnnnnnnnnnynnn~
  149. nnnnnnnnnnnnyynnyynnyynnyynnyynnyynnyynny~
  150. yk
  151.  
  152.  
  153. zz~
  154. ~TE
  155.  18  30  14  4  6  3
  156.  315  267  258  214
  157.  228  288  60  311
  158.  229  301  70  371
  159. This is our finished lamp.  Lets look
  160. at five of these in 3D.
  161. ~~
  162. ~CU~CU~CU~CU~CU~CR~CR~CR~CR~CR~CR~CR~CL~
  163. ~CLd~CR~CR~CR~CR~CR~CR~CR~CR~CRd~CR~CR~CR~
  164. ~CR~CR~CR~CR~CR~CRd~CD~CD~CD~CD~CD~EN~EN~EN~
  165. ~CU~CL-~CL~CLd~CL~CL~CL~CL~CL~CL~CL~CL~CL~
  166. ~CL~CRsdelamp
  167. qv~
  168. ~CO Going to PROGV
  169. ~
  170.  
  171.  
  172. vx~ENc~EN~EN+~EN~EN~EN~EN~EN~EN~EN~EN~EN~
  173. ~EN~EN~EN~EN~PU~PU~PU~EN~EN~EN
  174. ~CU~CU~CU~CU
  175. ~CD+~CD~CD~CD~CD~CD~CR~CR~CR~CD~CD~CL
  176. ~CD
  177. 61
  178. vr~
  179. ~TE
  180.  2  2  14  4  10  0
  181. Not very pretty but I hope you see
  182. the principles involved.  You can
  183. create nearly any piece of furniture
  184. you might need using these techniques.
  185. ~~
  186. q~
  187. ~TE
  188.  7  22  0  2  4  0
  189. As our final example lets create a
  190. piece of furniture out of some text.
  191. ~~
  192. l~
  193. ~CO Going to PROGL
  194. ~
  195. ~CL
  196.  
  197. dto30
  198. fl
  199.  
  200. xt~CL~CL4~CR\c\The
  201. End~
  202. ~ES~
  203. sDEND
  204. pc~
  205. ~CO Going to PROGX
  206. ~
  207.  
  208. DEND
  209. f~
  210. ~CO Going to PROGF
  211. ~
  212.  
  213.  
  214.  
  215. m~CUrf30
  216. sDEN
  217. qv~
  218. ~CO Going to PROGV
  219. ~
  220.  
  221.  
  222. vr~
  223. ~TE
  224.  18  33  14  4  12  0 
  225. Almost all of the furniture supplied
  226. with ROOMER3 and the ROOMER3 addon
  227. products was produced using the tech-
  228. niques you have just seen in action.
  229. ~~
  230. ~
  231. ~TE
  232.  18  33  4  7  0  0 
  233. ENDEND
  234. ~~
  235. ~
  236.